﻿Imports System.IO
Imports System

Public Class MainForm
    Public filename As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    '******BLOCK 1*******
    Public intB1S1QC, intB1S2QC, intB1S3QC, intB1S4QC, intB1S5QC, intB1S6QC, intB1S7QC, intB1S8QC, intB1S9QC As Integer
    Public intB1S1AC, intB1S2AC, intB1S3AC, intB1S4AC, intB1S5AC, intB1S6AC, intB1S7AC, intB1S8AC, intB1S9AC As Integer
    Public intB1S1RC, intB1S2RC, intB1S3RC, intB1S4RC, intB1S5RC, intB1S6RC, intB1S7RC, intB1S8RC, intB1S9RC As Integer
    Public strB1S1A(5), strB1S2A(22), strB1S3A(14), strB1S4A(13), strB1S5A(12), strB1S6A(26), strB1S7A(36), strB1S8A(8), strB1S9A(5) As String
    Public strB1S1Q(5), strB1S2Q(22), strB1S3Q(14), strB1S4Q(13), strB1S5Q(12), strB1S6Q(26), strB1S7Q(36), strB1S8Q(8), strB1S9Q(5) As String
    Public strB1S5Q3CA, strB1S5Q3CB, strB1S5Q3CC, strB1S5Q3CD, strB1S5Q7CA, strB1S5Q7CB, strB1S5Q7CC, strB1S5Q7CD As String
    '******BLOCK 2*******

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub StartHomeworkToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        '****Code to make window child of parent****
        'Dim NewMDIChild As New BlockOneHomework()
        'Set the Parent Form of the Child window.
        'NewMDIChild.MdiParent = Me
        'Display the new form.
        'NewMDIChild.Show()

        BlockOneHomework.MidiParent = Me
        BlockOneHomework.Show()
    End Sub

    Private Sub StartAppraisalsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartAppraisalsToolStripMenuItem.Click
        MessageNotAvailable()
    End Sub

    Private Sub Section1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section1ToolStripMenuItem.Click
        BlockOneHomeworkSectionOne.MidiParent = Me
        BlockOneHomeworkSectionOne.Show()
    End Sub

    Private Sub Section2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section2ToolStripMenuItem.Click
        BlockOneHomeworkSectionTwo.MidiParent = Me
        BlockOneHomeworkSectionTwo.Show()
    End Sub

    Private Sub Section3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section3ToolStripMenuItem.Click
        BlockOneHomeworkSectionThree.MidiParent = Me
        BlockOneHomeworkSectionThree.Show()
    End Sub

    Private Sub Section4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section4ToolStripMenuItem.Click
        BlockOneHomeworkSectionFour.MidiParent = Me
        BlockOneHomeworkSectionFour.Show()
    End Sub

    Private Sub Section5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section5ToolStripMenuItem.Click
        BlockOneHomeworkSectionFive.MidiParent = Me
        BlockOneHomeworkSectionFive.Show()
    End Sub

    Private Sub Section5ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section5ToolStripMenuItem1.Click
        BlockOneHomeworkSectionSix.MidiParent = Me
        BlockOneHomeworkSectionSix.Show()
    End Sub

    Private Sub Section7ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section7ToolStripMenuItem.Click
        BlockOneHomeworkSectionSeven.MidiParent = Me
        BlockOneHomeworkSectionSeven.Show()
    End Sub

    Private Sub Section7ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section7ToolStripMenuItem1.Click
        BlockOneHomeworkSectionEight.MidiParent = Me
        BlockOneHomeworkSectionEight.Show()
    End Sub

    Private Sub Section9ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section9ToolStripMenuItem.Click
        BlockOneHomeworkSectionNine.MidiParent = Me
        BlockOneHomeworkSectionNine.Show()
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuBlock2StartHomework.Click

    End Sub

    Private Sub ToolStripMenuBlock3StartHomework_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuBlock3StartHomework.Click

    End Sub

    Private Sub ToolStripMenuItemBlockFourStartHomework_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemBlockFourStartHomework.Click

    End Sub

    Private Sub AdminToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdminToolStripMenuItem.Click
        Admin.Show()
    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim filename As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

        If (Not System.IO.Directory.Exists(filename & "\Homework")) Then
            System.IO.Directory.CreateDirectory(filename & "\Homework")
        End If
        For i As Integer = 1 To 12
            If (Not System.IO.Directory.Exists(filename & "\Homework\Block " & i)) Then
                System.IO.Directory.CreateDirectory(filename & "\Homework\Block " & i)
            End If
        Next
        For i As Integer = 1 To 12
            If (Not System.IO.Directory.Exists(filename & "\Instructor\Block " & i)) Then
                System.IO.Directory.CreateDirectory(filename & "\Instructor\Block " & i)
            End If
        Next
        'Create Block 1 Files
        For i As Integer = 1 To 9
            If (Not System.IO.File.Exists(filename & "\Homework\Block 1\Block 1 Section " & i & ".txt")) Then
                System.IO.File.Create(filename & "\Homework\Block 1\Block 1 Section " & i & ".txt").Dispose()
            End If
        Next
        
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        BlockTwoHomeworkSectionOne.MidiParent = Me
        BlockTwoHomeworkSectionOne.Show()
    End Sub
    Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
        BlockTwoHomeworkSectionSeven.MidiParent = Me
        BlockTwoHomeworkSectionSeven.Show()
    End Sub

    Private Sub ToolStripMenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem27.Click
        BlockFourHomeworkSectionOne.MidiParent = Me
        BlockFourHomeworkSectionOne.Show()
    End Sub

    Private Sub ToolStripMenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem28.Click
        BlockFourHomeworkSectionTwo.MidiParent = Me
        BlockFourHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem29.Click
        BlockFourHomeworkSectionThree.MidiParent = Me
        BlockFourHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem30.Click
        BlockFourHomeworkSectionFour.MidiParent = Me
        BlockFourHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem15.Click
        BlockThreeHomeworkSectionOne.MidiParent = Me
        BlockThreeHomeworkSectionOne.Show()
    End Sub

    Private Sub ToolStripMenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem16.Click
        BlockThreeHomeworkSectionTwo.MidiParent = Me
        BlockThreeHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem17.Click
        BlockThreeHomeworkSectionThree.MidiParent = Me
        BlockThreeHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem18.Click
        BlockThreeHomeworkSectionFour.MidiParent = Me
        BlockThreeHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem19.Click
        BlockThreeHomeworkSectionFive.MidiParent = Me
        BlockThreeHomeworkSectionFive.Show()
    End Sub

    Private Sub ToolStripMenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem20.Click
        BlockThreeHomeworkSectionSix.MidiParent = Me
        BlockThreeHomeworkSectionSix.Show()
    End Sub

    Private Sub ToolStripMenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem21.Click
        BlockThreeHomeworkSectionSeven.MidiParent = Me
        BlockThreeHomeworkSectionSeven.Show()
    End Sub

    Private Sub ToolStripMenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem22.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem23.Click
        BlockThreeHomeworkSectionNine.MidiParent = Me
        BlockThreeHomeworkSectionNine.Show()
    End Sub

    Private Sub Section10ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section10ToolStripMenuItem.Click
        BlockThreeHomeworkSectionTen.MidiParent = Me
        BlockThreeHomeworkSectionTen.Show()
    End Sub
    Private Sub MessageNotAvailable()
        MsgBox("Not Yet Implemented", 0, "Not Available")
    End Sub

    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        BlockTwoHomeworkSectionTwo.MidiParent = Me
        BlockTwoHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
        BlockTwoHomeworkSectionThree.MidiParent = Me
        BlockTwoHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
        BlockTwoHomeworkSectionFour.MidiParent = Me
        BlockTwoHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
        BlockTwoHomeworkSectionFive.MidiParent = Me
        BlockTwoHomeworkSectionFive.Show()
    End Sub

    Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
        BlockTwoHomeworkSectionSix.MidiParent = Me
        BlockTwoHomeworkSectionSix.Show()
    End Sub

    Private Sub ToolStripMenuItem39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem39.Click
        BlockFiveHomeworkSectionOne.MidiParent = Me
        BlockFiveHomeworkSectionOne.Show()
    End Sub

    Private Sub ToolStripMenuItem40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem40.Click
        BlockFiveHomeworkSectionTwo.MidiParent = Me
        BlockFiveHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem41.Click
        BlockFiveHomeworkSectionThree.MidiParent = Me
        BlockFiveHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem42.Click
        BlockFiveHomeworkSectionFour.MidiParent = Me
        BlockFiveHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem43.Click
        BlockFiveHomeworkSectionFive.MidiParent = Me
        BlockFiveHomeworkSectionFive.Show()
    End Sub

    Private Sub ToolStripMenuItem44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem44.Click
        BlockFiveHomeworkSectionSix.MidiParent = Me
        BlockFiveHomeworkSectionSix.Show()
    End Sub

    Private Sub ToolStripMenuItem45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem45.Click
        BlockFiveHomeworkSectionSeven.MidiParent = Me
        BlockFiveHomeworkSectionSeven.Show()
    End Sub

    Private Sub ToolStripMenuItem51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem51.Click
        BlockSixHomeworkSectionOne.MidiParent = Me
        BlockSixHomeworkSectionOne.Show()
    End Sub

    Private Sub ToolStripMenuItem52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem52.Click
        BlockSixHomeworkSectionTwo.MidiParent = Me
        BlockSixHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem53.Click
        BlockSixHomeworkSectionThree.MidiParent = Me
        BlockSixHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem54.Click
        BlockSixHomeworkSectionFour.MidiParent = Me
        BlockSixHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem55.Click
        BlockSixHomeworkSectionFive.MidiParent = Me
        BlockSixHomeworkSectionFive.Show()
    End Sub

    Private Sub ToolStripMenuItem56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem56.Click
        BlockSixHomeworkSectionSix.MidiParent = Me
        BlockSixHomeworkSectionSix.Show()
    End Sub

    Private Sub ToolStripMenuItem57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem57.Click
        BlockSixHomeworkSectionSeven.MidiParent = Me
        BlockSixHomeworkSectionSeven.Show()
    End Sub

    Private Sub ToolStripMenuItem58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem58.Click
        BlockSixHomeworkSectionEight.MidiParent = Me
        BlockSixHomeworkSectionEight.Show()
    End Sub

    Private Sub ToolStripMenuItem59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem59.Click
        BlockSixHomeworkSectionNine.MidiParent = Me
        BlockSixHomeworkSectionNine.Show()
    End Sub

    Private Sub Section1ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section1ToolStripMenuItem1.Click
        BlockSevenHomeworkSectionOne.MidiParent = Me
        BlockSevenHomeworkSectionOne.Show()
    End Sub

    Private Sub Section2ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section2ToolStripMenuItem1.Click
        BlockSevenHomeworkSectionTwo.MidiParent = Me
        BlockSevenHomeworkSectionTwo.Show()
    End Sub

    Private Sub Section3ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section3ToolStripMenuItem1.Click
        BlockSevenHomeworkSectionThree.MidiParent = Me
        BlockSevenHomeworkSectionThree.Show()
    End Sub

    Private Sub Section4ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section4ToolStripMenuItem1.Click
        BlockSevenHomeworkSectionFour.MidiParent = Me
        BlockSevenHomeworkSectionFour.Show()
    End Sub

    Private Sub Section5ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section5ToolStripMenuItem2.Click
        BlockSevenHomeworkSectionFive.MidiParent = Me
        BlockSevenHomeworkSectionFive.Show()
    End Sub

    Private Sub Section6ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section6ToolStripMenuItem.Click
        BlockSevenHomeworkSectionSix.MidiParent = Me
        BlockSevenHomeworkSectionSix.Show()
    End Sub

    Private Sub ToolStripMenuItem75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem75.Click
        BlockEightHomeworkSectionOne.MidiParent = Me
        BlockEightHomeworkSectionOne.Show()
    End Sub

    Private Sub ToolStripMenuItem76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem76.Click
        BlockEightHomeworkSectionTwo.MidiParent = Me
        BlockEightHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem77.Click
        BlockEightHomeworkSectionThree.MidiParent = Me
        BlockEightHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem78.Click
        BlockEightHomeworkSectionFour.MidiParent = Me
        BlockEightHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem79_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem79.Click
        BlockEightHomeworkSectionFive.MidiParent = Me
        BlockEightHomeworkSectionFive.Show()
    End Sub

    Private Sub ToolStripMenuItem80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem80.Click
        BlockEightHomeworkSectionSix.MidiParent = Me
        BlockEightHomeworkSectionSix.Show()
    End Sub

    Private Sub Section7ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section7ToolStripMenuItem2.Click
        BlockEightHomeworkSectionSeven.MidiParent = Me
        BlockEightHomeworkSectionSeven.Show()
    End Sub

    Private Sub Section1ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section1ToolStripMenuItem2.Click
        BlockNineHomeworkSectionOne.MidiParent = Me
        BlockNineHomeworkSectionOne.Show()
    End Sub

    Private Sub Section2ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section2ToolStripMenuItem2.Click
        BlockNineHomeworkSectionTwo.MidiParent = Me
        BlockNineHomeworkSectionTwo.Show()
    End Sub

    Private Sub Section3ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section3ToolStripMenuItem2.Click
        BlockNineHomeworkSectionThree.MidiParent = Me
        BlockNineHomeworkSectionThree.Show()
    End Sub

    Private Sub Section4ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section4ToolStripMenuItem2.Click
        BlockNineHomeworkSectionFour.MidiParent = Me
        BlockNineHomeworkSectionFour.Show()
    End Sub

    Private Sub Section1ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section1ToolStripMenuItem3.Click
        BlockTenHomeworkSectionOne.MidiParent = Me
        BlockTenHomeworkSectionOne.Show()
    End Sub

    Private Sub Section2ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section2ToolStripMenuItem3.Click
        BlockTenHomeworkSectionTwo.MidiParent = Me
        BlockTenHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem111_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem111.Click
        BlockElevenHomeworkSectionOne.MidiParent = Me
        BlockElevenHomeworkSectionOne.Show()
    End Sub

    Private Sub ToolStripMenuItem112_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem112.Click
        BlockElevenHomeworkSectionTwo.MidiParent = Me
        BlockElevenHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem113_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem113.Click
        BlockElevenHomeworkSectionThree.MidiParent = Me
        BlockElevenHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem114_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem114.Click
        BlockElevenHomeworkSectionFour.MidiParent = Me
        BlockElevenHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem115_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem115.Click
        BlockElevenHomeworkSectionFive.MidiParent = Me
        BlockElevenHomeworkSectionFive.Show()
    End Sub

    Private Sub ToolStripMenuItem116_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem116.Click
        BlockElevenHomeworkSectionSix.MidiParent = Me
        BlockElevenHomeworkSectionSix.Show()
    End Sub

    Private Sub ToolStripMenuItem117_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem117.Click
        BlockElevenHomeworkSectionSeven.MidiParent = Me
        BlockElevenHomeworkSectionSeven.Show()
    End Sub

    Private Sub ToolStripMenuItem118_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem118.Click
        BlockElevenHomeworkSectionEight.MidiParent = Me
        BlockElevenHomeworkSectionEight.Show()
    End Sub

    Private Sub ToolStripMenuItem123_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem123.Click
        BlockTwelveHomeworkSectionOne.MidiParent = Me
        BlockTwelveHomeworkSectionOne.Show()
    End Sub

    Private Sub ToolStripMenuItem124_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem124.Click
        BlockTwelveHomeworkSectionTwo.MidiParent = Me
        BlockTwelveHomeworkSectionTwo.Show()
    End Sub

    Private Sub ToolStripMenuItem125_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem125.Click
        BlockTwelveHomeworkSectionThree.MidiParent = Me
        BlockTwelveHomeworkSectionThree.Show()
    End Sub

    Private Sub ToolStripMenuItem126_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem126.Click
        BlockTwelveHomeworkSectionFour.MidiParent = Me
        BlockTwelveHomeworkSectionFour.Show()
    End Sub

    Private Sub ToolStripMenuItem127_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem127.Click
        BlockTwelveHomeworkSectionFive.MidiParent = Me
        BlockTwelveHomeworkSectionFive.Show()
    End Sub

    Private Sub ToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem13.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem24.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem36.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem48.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem60.Click
        MessageNotAvailable()
    End Sub

    Private Sub StartBlock7AppraisalsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartBlock7AppraisalsToolStripMenuItem.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem84_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem84.Click
        MessageNotAvailable()
    End Sub

    Private Sub StartBlock9AppraisalsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartBlock9AppraisalsToolStripMenuItem.Click
        MessageNotAvailable()
    End Sub

    Private Sub StartBlock10AppraisalsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartBlock10AppraisalsToolStripMenuItem.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem120_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem120.Click
        MessageNotAvailable()
    End Sub

    Private Sub ToolStripMenuItem132_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem132.Click
        MessageNotAvailable()
    End Sub

    Private Sub MainForm_ControlRemoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles MyBase.ControlRemoved
        Admin.Block1()
    End Sub

    Private Sub Section7ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Section7ToolStripMenuItem3.Click
        BlockSevenHomeworkSectionSeven.MidiParent = Me
        BlockSevenHomeworkSectionSeven.Show()
    End Sub

    Private Sub Objective1CourseOverviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Objective1CourseOverviewToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Presentations\Objective 1 - Course Overview.ppsx")
    End Sub

    Private Sub Objective2SafetyORMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Objective2SafetyORMToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Presentations\Objective 2 - Career Field Overview.ppsx")
    End Sub

    Private Sub Objective3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Objective3ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Presentations\Objective 3 - Safety.ppsx")
    End Sub

    Private Sub Objective4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Objective4ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Presentations\Objective 4 - Climbing Fundamentals.ppsx")
    End Sub

    Private Sub Objective5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Objective5ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Presentations\Objective 5 - Climbing Techniques.ppsx")
    End Sub

    Private Sub Objective6ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Objective6ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Presentations\Objective 6 - Technical Orders.ppsx")
    End Sub

    Private Sub Obkective8ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Obkective8ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Presentations\Objective 8 - AMS Operational Principles.ppsx")
    End Sub

    Private Sub R22ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R22ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Technical Orders\31R2-2GRR-112.pdf")
    End Sub

    Private Sub GRR112ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GRR112ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Technical Orders\31R2-2GRR-114.pdf")
    End Sub

    Private Sub R22GRR116WC1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles R22GRR116WC1ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Technical Orders\31R2-2GRR-116WC-1.pdf")
    End Sub

    Private Sub ToolStripMenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem25.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 1\Technical Orders\ETW Ver 2.0.pdf")
    End Sub

    Private Sub IntroAndTermsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IntroAndTermsToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\1. Intro and terms.ppsx")
    End Sub

    Private Sub ListAdvantagesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListAdvantagesToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\3.  List Advantages.ppsx")
    End Sub

    Private Sub AntennaFundamentalsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AntennaFundamentalsToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\3.1 Antenna Fundamentals.ppsx")
    End Sub

    Private Sub Pg1DescribeFunctionOfBlocksToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg1DescribeFunctionOfBlocksToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\4. pg1 Describe Function of Blocks.ppsx")
    End Sub

    Private Sub Pg2FunctionalBlockDiagramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg2FunctionalBlockDiagramToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\5.pg2 Functional BD.ppsx")
    End Sub

    Private Sub Pg4PowerSupplyFunctionalDiagramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg4PowerSupplyFunctionalDiagramToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\6. pg 4 Power Supply FD.ppsx")
    End Sub

    Private Sub Pg5OscillatorSynthesizerA1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg5OscillatorSynthesizerA1ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\7. pg 5 Oscilator Synthesizer ( A1 ).ppsx")
    End Sub

    Private Sub Pg6MixerMultiplierFunctionalDiagramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg6MixerMultiplierFunctionalDiagramToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\8. pg 6 Mixer- Multi FD.ppsx")
    End Sub

    Private Sub Pg7MixerMultiplierVHFFunctionalDiagramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg7MixerMultiplierVHFFunctionalDiagramToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\9. pg 7 Mixer-Multi VHF FD.ppsx")
    End Sub

    Private Sub Pg8BufferAmplFL1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg8BufferAmplFL1ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\10. pg 8 Buffer Amp_FL1.ppsx")
    End Sub

    Private Sub Pg8IFAmpDetectorBlockDiagramA6ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg8IFAmpDetectorBlockDiagramA6ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\11. pg 8 A6 IF Amp-Detector BD.ppsx")
    End Sub

    Private Sub Pg9NoiseLimiterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg9NoiseLimiterToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\pg 9Noise Limiter.ppsx")
    End Sub

    Private Sub Pg10AGCSquelchBlockDiagramA3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg10AGCSquelchBlockDiagramA3ToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\12. pg 10 A3 AGC-Squelch BD [Autosaved].ppsx")
    End Sub

    Private Sub Pg11AudioAmplifierFunctionDiagramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg11AudioAmplifierFunctionDiagramToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\13. pg 11 Audio Amp FD.ppsx")
    End Sub

    Private Sub Pg1213TestPointsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pg1213TestPointsToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\Course Materials\Block 2\Presentations\14.  pgs 12_13 TEST POINTS.ppsx")
    End Sub

    Private Sub RESETToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESETToolStripMenuItem.Click
        My.Settings.B1S1QC = 0
        My.Settings.strB1S1A1 = ""
        My.Settings.strB1S1A2 = ""
        My.Settings.strB1S1A3 = ""
        My.Settings.strB1S1A4 = ""
        My.Settings.strB1S1A5 = ""
    End Sub

    Private Sub LaunchFlashToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaunchFlashToolStripMenuItem.Click
        Dim p As Process = Process.Start((filename) & "\sycamore.swf")
    End Sub
End Class


Class Form1

End Class
